﻿Public Class Seguridad
    Public Shared Function ValidarUsuario(ByVal legajo As Long, ByVal clave As String) As Object
        Try
            Dim strResultado As String = ""
            Dim oUsuario As Dominio.Usuario
            oUsuario = Dominio.Usuario.getUsuarioByLegajo(legajo)

            If (oUsuario Is Nothing) Then
                strResultado = "El usuario ingresado no existe o no es único"
            ElseIf (oUsuario.Clave <> clave) Then
                strResultado = "La clave ingresada no es válida"
            Else
                '//Si paso todas las validaciones devuelvo el objeto usuario para guardarme el ID
                Return oUsuario
            End If
            Return strResultado

        Catch ex As Exception
            Throw
        End Try
    End Function
End Class
